unit dm_nf;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables;

type
  Tdm1 = class(TDataModule)
    db: TDatabase;
    procedure Processkey(Var Msg: Tmsg; var Handled: Boolean);
    procedure DataModuleCreate(Sender: TObject);
  end;

var
  dm1: Tdm1;

implementation

{$R *.DFM}

{ Tdm1 }

procedure Tdm1.Processkey(var Msg: Tmsg; var Handled: Boolean);
begin
  if Msg.message = WM_KEYDOWN then begin
    if Msg.wParam = VK_RETURN then begin
      Msg.wParam := VK_CLEAR;
      Keybd_event(VK_TAB,0,0,0);
    end;
  end;
end;

procedure Tdm1.DataModuleCreate(Sender: TObject);
begin
// Application.OnMessage:= ProcessKey;
end;

end.
